(eshell-shuffle-files): Apply `directory-file-name' before calling

`file-name-directory'.

diff --git a/lisp/eshell/em-unix.el b/lisp/eshell/em-unix.el
index 1dfec1e70218616ebbb457e06503bac9c9c4b1cd..9b63accbbf032ecedab8ed8a54461497c3b965c4 100644 (file)
--- a/lisp/eshell/em-unix.el
+++ b/lisp/eshell/em-unix.el
@@ -360,10 +360,12 @@ Remove the DIRECTORY(ies), if they are empty.")
                           (eq func 'rename-file)
                           (= (nth 11 (eshell-file-attributes
                                       (file-name-directory
-                                       (expand-file-name source))))
+                                       (directory-file-name
+                                        (expand-file-name source)))))
                              (nth 11 (eshell-file-attributes
                                       (file-name-directory
-                                       (expand-file-name target))))))
+                                       (directory-file-name
+                                        (expand-file-name target)))))))
                      (apply 'eshell-funcalln func source target args)
                  (unless (file-directory-p target)
                    (if verbose